package FivechessClient;

import java.awt.Dimension;
import java.awt.Graphics;
import java.awt.event.MouseAdapter;
import java.awt.event.MouseEvent;
import java.awt.event.MouseMotionAdapter;
import java.awt.image.BufferedImage;
import java.io.File;
import java.util.ArrayList;
import java.util.Collections;
import java.util.Comparator;
import java.util.Random;

import javax.imageio.ImageIO;
import javax.swing.JFrame;
import javax.swing.JOptionPane;
import javax.swing.JPanel;

public class Game2 {
	BufferedImage table;
	BufferedImage black;
	BufferedImage white;

	BufferedImage selected;

	private static int BOARD_SIZE = 15;

	private final int TABLE_WIDTH = 535;
	private final int TABLE_HEIGHT = 536;

	private final int RATE = TABLE_WIDTH / BOARD_SIZE;

	private final int X_OFFSET = 5;
	private final int Y_OFFSET = 6;

	private int[][] board = new int[BOARD_SIZE][BOARD_SIZE];
	private int[][] board2 = new int[BOARD_SIZE][BOARD_SIZE]; // 辅助棋盘
	private int[][] computerScore = new int[BOARD_SIZE][BOARD_SIZE];
	private int[][] gamerScore = new int[BOARD_SIZE][BOARD_SIZE];

	JFrame f = new JFrame("五子棋--小熊");

	ChessBoard chessBoard = new ChessBoard();

	private static int selectedX = -1;
	private static int selectedY = -1;
	private static int computerX = -1;
	private static int computerY = -1;

	private static boolean flagGamer = false; // 记录玩家是否赢了
	private static boolean flagComputer = false; // 记录电脑是否赢了

	private static int computerscore = 0; // 电脑最大分数
	private static int gamerscore = 0; // 玩家最大分数
	private static int comx, comy; // 玩家下子坐标

	private final int HUO = 1;
	private final int CHONG = 2;
	private static int chesscou = 0;

	private ArrayList<ChessXY2> chessList = new ArrayList<ChessXY2>();
	private ArrayList<GamerXY> gamersList = new ArrayList<GamerXY>();

	Random rand = new Random();

	public void initto() {
		for (int i = 0; i < BOARD_SIZE; ++i) {
			for (int j = 0; j < BOARD_SIZE; ++j) {
				board[i][j] = 0;
				computerScore[i][j] = 100000;
				gamerScore[i][j] = 100000;
			}
		}
		chesscou = 0;
		computerX = -1;
		computerY = -1;
		flagGamer = false;
		flagComputer = false;
	}

	public boolean isRun(int x, int y) {
		if (board[x][y] == 0) {
			return true;
		}
		return false;
	}

	public boolean isWin(int f, int x, int y) {
		int i, count = 1;
		boolean up, down, right, left, rup, lup, rdown, ldown;
		up = down = right = left = rup = lup = rdown = ldown = true;
		/* 上下 */
		for (i = 1; i < 5; ++i) {
			if ((y + i) < BOARD_SIZE) {
				if (board[x][y + i] == f && down)
					count++;
				else
					down = false;
			}
			if ((y - i) >= 0) {
				if (board[x][y - i] == f && up)
					count++;
				else
					up = false;
			}
		}
		if (count >= 5) {
			return true;
		}
		count = 1;
		/* 左右 */
		for (i = 1; i < 5; ++i) {
			if ((x + i) < BOARD_SIZE) {
				if (board[x + i][y] == f && right)
					count++;
				else
					right = false;
			}
			if ((x - i) >= 0) {
				if (board[x - i][y] == f && left)
					count++;
				else
					left = false;
			}
		}
		if (count >= 5) {
			return true;
		}
		count = 1;
		/* 左上右下 */
		for (i = 1; i < 5; ++i) {
			if ((x + i) < BOARD_SIZE && (y + i) < BOARD_SIZE) {
				if (board[x + i][y + i] == f && rdown)
					count++;
				else
					rdown = false;
			}
			if ((x - i) >= 0 && (y - i) >= 0) {
				if (board[x - i][y - i] == f && lup)
					count++;
				else
					lup = false;
			}
		}
		if (count >= 5) {
			return true;
		}
		count = 1;
		/* 右上左下 */
		for (i = 1; i < 5; ++i) {
			if ((x + i) < BOARD_SIZE && (y - i) >= 0) {
				if (board[x + i][y - i] == f && rup)
					count++;
				else
					rup = false;
			}
			if ((x - i) >= 0 && (y + i) < BOARD_SIZE) {
				if (board[x - i][y + i] == f && ldown)
					count++;
				else
					ldown = false;
			}
		}
		if (count >= 5) {
			return true;
		}

		return false;
	}

	@SuppressWarnings({ "unchecked", "rawtypes" })
	public void Computer_AI() {
		computerscore = 0;
		for (int i = 0; i < BOARD_SIZE; ++i) {
			for (int j = 0; j < BOARD_SIZE; ++j) {
				computerScore[i][j] = 100000;
				gamerScore[i][j] = 100000;
			}
		}
		getScore();
		for (int i = 0; i < BOARD_SIZE; ++i) {
			for (int j = 0; j < BOARD_SIZE; ++j) {
				if (computerScore[i][j] == computerscore) {
					ChessXY2 chess = new ChessXY2(i, j);
					chessList.add(chess);
				}
			}
		}
		System.out.println(chessList.size());
		for (int i = 0; i < chessList.size(); ++i) {
			board2[chessList.get(i).x][chessList.get(i).y] = 2;
			getScore2();
			ChessXY2 chess = new ChessXY2(chessList.get(i).x, chessList.get(i).y);
			GamerXY game = new GamerXY(gamerscore, chess);
			gamersList.add(game);
			board2[chessList.get(i).x][chessList.get(i).y] = 0;
		}
		chessList.clear();
		Collections.sort(gamersList, new Comparator() {
			public int compare(Object o1, Object o2) {
				return ((GamerXY) o1).score - ((GamerXY) o2).score;
			}
		});
		for (int i = 0; i < BOARD_SIZE; ++i) {
			for (int j = 0; j < BOARD_SIZE; ++j) {
				System.out.print(board2[i][j] + " ");
			}
			System.out.println();
		}
		System.out.println("\n");
		int m = 1;
		for (int i = 0; i < gamersList.size(); ++i) {
			System.out.println(gamersList.get(i).score + " " + gamersList.get(i).c.x + " " + gamersList.get(i).c.y);
		}
		for (int i = 1; i < gamersList.size(); ++i) {
			if (gamersList.get(i).score == gamersList.get(0).score) {
				m++;
			} else {
				break;
			}
		}
		int n = rand.nextInt(m); // 电脑根据分值一样的点随机走，防止每次都走相同的步数
		comx = gamersList.get(n).c.x;
		comy = gamersList.get(n).c.y;
		gamersList.clear();
	}

	public void getScore() {
		computerscore = 0;
		for (int j = 0; j < BOARD_SIZE; ++j) {
			for (int i = 0; i < BOARD_SIZE; ++i) {
				if (board[i][j] == 0) {
					if (isWin(2, i, j)) // 电脑能赢，故给分最高，因为可以结束，所以不再检测
					{
						computerscore = 13;
						computerScore[i][j] = 13;

						return;
					} else if (isWin(1, i, j)) // 电脑不能赢，玩家能赢，要阻止，所以给12分
					{
						computerscore = 12;
						computerScore[i][j] = 12;
					} else if (isHuoOrChong(2, i, j, 4, HUO, board)) // 电脑玩家都不能赢，电脑能形成活四，给11分
					{
						computerscore = (computerscore > 11 ? computerscore : 11);
						computerScore[i][j] = 11;
					} else if (isHuoOrChong(2, i, j, 4, CHONG, board)) // 电脑玩家都不能赢，电脑能形成冲四，给10分
					{
						computerscore = (computerscore > 10 ? computerscore : 10);
						computerScore[i][j] = 10;
					} else if (isHuoOrChong(1, i, j, 4, HUO, board)) // 电脑玩家都不能赢，玩家能形成活四，给9分
					{
						computerscore = (computerscore > 9 ? computerscore : 9);
						computerScore[i][j] = 9;
					} else if (isHuoOrChong(2, i, j, 3, HUO, board)) // 电脑玩家都不能赢，电脑能形成活三，给8分
					{
						computerscore = (computerscore > 8 ? computerscore : 8);
						computerScore[i][j] = 8;
					} else if (isHuoOrChong(1, i, j, 4, CHONG, board)) // 电脑玩家都不能赢，玩家能形成冲四，给7分
					{
						computerscore = (computerscore > 7 ? computerscore : 7);
						computerScore[i][j] = 7;
					} else if (isHuoOrChong(2, i, j, 3, CHONG, board)) // 电脑玩家都不能赢，电脑能形成冲三，给6分
					{
						computerscore = (computerscore > 6 ? computerscore : 6);
						computerScore[i][j] = 6;
					} else if (isHuoOrChong(2, i, j, 2, HUO, board)) // 电脑玩家都不能赢，电脑能形成活二，给5分
					{
						computerscore = (computerscore > 5 ? computerscore : 5);
						computerScore[i][j] = 5;
					} else if (isHuoOrChong(1, i, j, 3, CHONG, board)) // 电脑玩家都不能赢，玩家能形成冲三，给4分
					{
						computerscore = (computerscore > 4 ? computerscore : 4);
						computerScore[i][j] = 4;
					} else if (isHuoOrChong(1, i, j, 2, HUO, board)) // 电脑玩家都不能赢，玩家能形成活二，给3分
					{
						computerscore = (computerscore > 3 ? computerscore : 3);
						computerScore[i][j] = 3;
					} else if (isHuoOrChong(2, i, j, 2, CHONG, board)) // 电脑玩家都不能赢，电脑能形成冲二，给2分
					{
						computerscore = (computerscore > 2 ? computerscore : 2);
						computerScore[i][j] = 2;
					} else if (isHuoOrChong(1, i, j, 2, CHONG, board)) // 电脑玩家都不能赢，玩家能形成冲二，给1分
					{
						computerscore = (computerscore > 1 ? computerscore : 1);
						computerScore[i][j] = 1;
					} else {
						computerScore[i][j] = 0;
					}
				}
			}
		}
	}

	public void getScore2() {
		gamerscore = 0;
		for (int j = 0; j < BOARD_SIZE; ++j) {
			for (int i = 0; i < BOARD_SIZE; ++i) {
				if (board2[i][j] == 0) {
					if (isWin(1, i, j)) // 电脑能赢，故给分最高，因为可以结束，所以不再检测
					{
						gamerscore = 13;
						gamerScore[i][j] = 13;

						return;
					} else if (isWin(2, i, j)) // 电脑不能赢，玩家能赢，要阻止，所以给12分
					{
						gamerscore = 12;
						gamerScore[i][j] = 12;
					} else if (isHuoOrChong(1, i, j, 4, HUO, board2)) // 电脑玩家都不能赢，电脑能形成活四，给11分
					{
						gamerscore = (gamerscore > 11 ? gamerscore : 11);
						gamerScore[i][j] = 11;
					} else if (isHuoOrChong(1, i, j, 4, CHONG, board2)) // 电脑玩家都不能赢，电脑能形成冲四，给10分
					{
						gamerscore = (gamerscore > 10 ? gamerscore : 10);
						gamerScore[i][j] = 10;
					} else if (isHuoOrChong(1, i, j, 3, HUO, board2)) // 电脑玩家都不能赢，电脑能形成活三，给8分
					{
						gamerscore = (gamerscore > 8 ? gamerscore : 8);
						gamerScore[i][j] = 8;
					} else if (isHuoOrChong(1, i, j, 3, CHONG, board2)) // 电脑玩家都不能赢，电脑能形成冲三，给6分
					{
						gamerscore = (gamerscore > 6 ? gamerscore : 6);
						gamerScore[i][j] = 6;
					} else if (isHuoOrChong(1, i, j, 2, HUO, board2)) // 电脑玩家都不能赢，电脑能形成活二，给5分
					{
						gamerscore = (gamerscore > 5 ? gamerscore : 5);
						gamerScore[i][j] = 5;
					} else if (isHuoOrChong(1, i, j, 2, CHONG, board2)) // 电脑玩家都不能赢，电脑能形成冲二，给2分
					{
						gamerscore = (gamerscore > 2 ? gamerscore : 2);
						gamerScore[i][j] = 2;
					} else {
						gamerScore[i][j] = 0;
					}
				}
			}
		}
		System.out.println(gamerscore);
	}

	private boolean isHuoOrChong(int f, int x, int y, int num, int hORc, int[][] boa) // 活
	{
		num += 1;
		int i, count = 1;
		boolean terminal1 = false;
		boolean terminal2 = false;
		boolean up, down, right, left, rup, lup, rdown, ldown;
		up = down = right = left = rup = lup = rdown = ldown = true;
		/* 上下 */
		for (i = 1; i < num; ++i) {
			if ((y + i) < BOARD_SIZE) {
				if (boa[x][y + i] == f && down)
					count++;
				else {
					if (boa[x][y + i] == 0 && down) {
						terminal1 = true;
					}
					down = false;
				}
			}
			if ((y - i) >= 0) {
				if (boa[x][y - i] == f && up)
					count++;
				else {
					if (boa[x][y - i] == 0 && up) {
						terminal2 = true;
					}
					up = false;
				}
			}
		}
		if (count == num - 1 && hORc == HUO && terminal1 && terminal2) {
			return true;
		}
		if (count == num - 1 && hORc == CHONG && ((terminal1 && !terminal2) || (!terminal1 && terminal2))) {
			return true;
		}
		count = 1;
		terminal1 = false;
		terminal2 = false;
		/* 左右 */
		for (i = 1; i < num; ++i) {
			if ((x + i) < BOARD_SIZE) {
				if (boa[x + i][y] == f && right)
					count++;
				else {
					if (boa[x + i][y] == 0 && right) {
						terminal1 = true;
					}
					right = false;
				}
			}
			if ((x - i) >= 0) {
				if (boa[x - i][y] == f && left)
					count++;
				else {
					if (boa[x - i][y] == 0 && left) {
						terminal2 = true;
					}
					left = false;
				}
			}
		}
		if (count == num - 1 && hORc == HUO && terminal1 && terminal2) {
			return true;
		}
		if (count == num - 1 && hORc == CHONG && ((terminal1 && !terminal2) || (!terminal1 && terminal2))) {
			return true;
		}
		count = 1;
		terminal1 = false;
		terminal2 = false;
		/* 左上右下 */
		for (i = 1; i < num; ++i) {
			if ((x + i) < BOARD_SIZE && (y + i) < BOARD_SIZE) {
				if (boa[x + i][y + i] == f && rdown)
					count++;
				else {
					if (boa[x + i][y + i] == 0 && rdown) {
						terminal1 = true;
					}
					rdown = false;
				}
			}
			if ((x - i) >= 0 && (y - i) >= 0) {
				if (boa[x - i][y - i] == f && lup)
					count++;
				else {
					if (boa[x - i][y - i] == 0 && lup) {
						terminal2 = true;
					}
					lup = false;
				}
			}
		}
		if (count == num - 1 && hORc == HUO && terminal1 && terminal2) {
			return true;
		}
		if (count == num - 1 && hORc == CHONG && ((terminal1 && !terminal2) || (!terminal1 && terminal2))) {
			return true;
		}
		count = 1;
		terminal1 = false;
		terminal2 = false;
		/* 右上左下 */
		for (i = 1; i < num; ++i) {
			if ((x + i) < BOARD_SIZE && (y - i) >= 0) {
				if (boa[x + i][y - i] == f && rup)
					count++;
				else {
					if (boa[x + i][y - i] == 0 && rup) {
						terminal1 = true;
					}
					rup = false;
				}
			}
			if ((x - i) >= 0 && (y + i) < BOARD_SIZE) {
				if (boa[x - i][y + i] == f && ldown)
					count++;
				else {
					if (boa[x - i][y + i] == 0 && ldown) {
						terminal2 = true;
					}
					ldown = false;
				}
			}
		}
		if (count == num - 1 && hORc == HUO && terminal1 && terminal2) {
			return true;
		}
		if (count == num - 1 && hORc == CHONG && ((terminal1 && !terminal2) || (!terminal1 && terminal2))) {
			return true;
		}

		return false;
	}

	@SuppressWarnings("deprecation")
	public void init() throws Exception {
		table = ImageIO.read(new File("image/board.jpg"));
		black = ImageIO.read(new File("image/black.gif"));
		white = ImageIO.read(new File("image/white.gif"));
		selected = ImageIO.read(new File("image/selected.gif"));

		for (int i = 0; i < BOARD_SIZE; ++i) {
			for (int j = 0; j < BOARD_SIZE; ++j) {
				board[i][j] = 0;
				board2[i][j] = 0;
				computerScore[i][j] = 100000;
				gamerScore[i][j] = 100000;
			}
		}
		chessBoard.setPreferredSize(new Dimension(TABLE_WIDTH, TABLE_HEIGHT));

		chessBoard.addMouseListener(new MouseAdapter() {
			public void mouseClicked(MouseEvent e) {
				int xPos = (int) ((e.getX() - X_OFFSET) / RATE);
				int yPos = (int) ((e.getY() - Y_OFFSET) / RATE);
				if (isRun(xPos, yPos)) {
					flagGamer = isWin(1, xPos, yPos);
					board[xPos][yPos] = 1;
					board2[xPos][yPos] = 1;
					chesscou++;
					if (chesscou == (BOARD_SIZE * BOARD_SIZE)) {
						JOptionPane.showMessageDialog(null, "不相上下！！！\n再来一盘吧！！！", "结束", JOptionPane.ERROR_MESSAGE);
						initto();
					} else {
						Computer_AI(); // 电脑下棋，AI算法
						chesscou++;
						flagComputer = isWin(2, comx, comy);
						board[comx][comy] = 2;
						board2[comx][comy] = 2;
						computerX = comx;
						computerY = comy;
					}
				}
				chessBoard.repaint();
				if (flagGamer) {
					JOptionPane.showMessageDialog(null, "厉害厉害！！！\n你赢了！！！", "结束", JOptionPane.ERROR_MESSAGE);
					initto();
				} else if (flagComputer) {
					JOptionPane.showMessageDialog(null, "哈哈哈哈！！！\n你输了！！！", "结束", JOptionPane.ERROR_MESSAGE);
					initto();
				}
			}

			public void mouseExited(MouseEvent e) {
				selectedX = -1;
				selectedY = -1;
				chessBoard.repaint();
			}
		});
		chessBoard.addMouseMotionListener(new MouseMotionAdapter() {
			public void mouseMoved(MouseEvent e) {
				selectedX = (e.getX() - X_OFFSET) / RATE;
				selectedY = (e.getY() - Y_OFFSET) / RATE;

				chessBoard.repaint();
			}
		});
		f.add(chessBoard);
		f.setCursor(1);
		f.setDefaultCloseOperation(JFrame.EXIT_ON_CLOSE);
		f.setResizable(false);
		f.pack();
		f.setVisible(true);
	}

	public static void main(String[] args) throws Exception {
		Game2 game = new Game2();
		game.init();
	}

	@SuppressWarnings("serial")
	class ChessBoard extends JPanel {
		public void paint(Graphics g) {
			g.drawImage(table, 0, 0, null);
			if (selectedX >= 0 && selectedY >= 0) {
				g.drawImage(selected, selectedX * RATE + X_OFFSET, selectedY * RATE + Y_OFFSET, null);
			}
			if (computerX >= 0 && computerY >= 0) {
				g.drawImage(selected, computerX * RATE + X_OFFSET, computerY * RATE + Y_OFFSET, null);
			}
			for (int i = 0; i < BOARD_SIZE; ++i) {
				for (int j = 0; j < BOARD_SIZE; ++j) {
					if (board[i][j] == 1) {
						g.drawImage(black, i * RATE + X_OFFSET, j * RATE + Y_OFFSET, null);
					}
					if (board[i][j] == 2) {
						g.drawImage(white, i * RATE + X_OFFSET, j * RATE + Y_OFFSET, null);
					}
				}
			}
		}
	}
}

class ChessXY2 {
	int x;
	int y;

	public ChessXY2(int x, int y) {
		this.x = x;
		this.y = y;
	}
}

class GamerXY {
	ChessXY2 c;
	int score;

	public GamerXY(int score, ChessXY2 c) {
		this.score = score;
		this.c = c;
	}
}
